

*** Figure H.1. : Money Circulation
use "$datadir/banking/moneystock.dta", clear
	replace deposits_banks = m4-currency_circulation
	
	bys timenoday (time) : keep if _n == _N	
	
	egen timeid = group(time)
	g x = timeid if timenoday == 201610
	egen x1 = max(x) 
	replace timeid = timeid -x1
	drop x x1 
	
	sort timeid
	foreach var of  varlist currency_circulation notes_circulation cash_onhand_banks deposit_money_public deposits_banks m1 m2 m3 m4{
		g d_`var' = (`var'-`var'[_n-1])
		g p_`var' = (`var'-`var'[_n-1])*100/`var'[_n-1]
	}
	
	lab var currency_circulation "Currency in Circulation"
	lab var deposits_banks "All Bank deposits"
	lab var m4 "Total Money"
	
	
	local lag 18
	local graphs ""
	twoway (scatter p_currency_circulation timeid if abs(timeid) <= `lag', yline(0, lcolor(gs12) lpattern(dash)) xlab(-18(3)18) ylab(-50(25)25,nogrid) msize(med) xline(0.5 ,lpat(shortdash)) lcolor(gs10)  mcolor(gs10) connect(l)  ytitle("% monthly change") graphregion(color(white))) ///
	(scatter p_m4 timeid if abs(timeid) <= `lag', ylab(,nogrid) msize(med) lcolor(dknavy) xlabel(-`lag' (3) `lag')  mcolor(blue) connect(l) xtitle("Months after shock")  graphregion(color(white))) ///
	,legend(label(1 "Currency in circulation") label(2 "Currency in circulation + Deposits")  ring(0) position(10) bmargin(small) rows(2) size(small) region(lcolor(white)))
	graph export "$outputdir_fig\Figure_H_1.pdf", as(pdf) replace
	